home *** CD-ROM | disk | FTP | other *** search
/ Quarterdeck InternetSuite / Quarterdeck InternetSuite.iso / qsockpro.qip / QUAKENET.MPS < prev    next >
Encoding:
Text File  |  1996-03-20  |  1.2 KB  |  59 lines
  1. # QuakeNet Internet Services PPP script
  2. # Copyright 1995 Quarterdeck Corporation
  3. # 5-11-95
  4.  
  5. STRING username
  6. STRING password
  7. STRING framing
  8. STRING IPAddress
  9.  
  10. # TRACE ON
  11.  
  12. SetTimeOut 90
  13.  
  14. CfgGetValue     "Username"      username
  15. IF result = 0 THEN
  16.     GetInput "Enter your username:" username
  17.     IF result = 0 THEN
  18.         PRINT "Warning, no username entered."
  19.     ELSE
  20.         PRINT "Username set to:";username
  21.     ENDIF
  22. ENDIF
  23.  
  24. CfgGetValue "Password" password
  25. IF result = 0 THEN
  26.     GetPassword "Enter your password:" password
  27.     IF result = 0 THEN
  28.         PRINT "Warning, no password entered."
  29.     ELSE
  30.         PRINT "Password set."
  31.     ENDIF
  32. ENDIF
  33.  
  34. CfgGetValue "Framing" framing        
  35. IF result = 0 THEN
  36.     ABORT "Can't read 'Framing' setting from QDECK.INI!"
  37. ENDIF
  38.  
  39. CommWaitFor "login:"        # not case sensitive
  40.     CommSend username
  41.     CommSend "%r"
  42.  
  43. CommWaitFor "password:"
  44.     CommSend password
  45.     CommSend "%r"
  46.  
  47. IF framing = "MPSLIP" THEN
  48.     CommWaitFor ") to"
  49.     CommReadIPAddr IPAddress
  50.     IF result < 7 THEN          # IP Address length test
  51.         ABORT "Missing or invalid IP Address."
  52.     ENDIF
  53.  
  54.     CfgSetValue "IPAddress" ipaddress
  55.     PRINT "%rIP Address set to:"; ipaddress
  56. ENDIF
  57.  
  58. END
  59.